home *** CD-ROM | disk | FTP | other *** search
/ H4CK3R 14 / hacker14.iso / programacao / visual / perl.exe / {app} / Box - Line Coding.pl next >
Encoding:
Text File  |  2003-03-31  |  413 b   |  32 lines
  1. # Parenthesis coloring
  2. if (                     # Level 1
  3.     (                    # Level 2
  4.         (                 # Level 3
  5.             (            # Level 4
  6.                 (        # Level 5
  7.                     (    # Level 6
  8.                     ) 
  9.                 )
  10.             )  
  11.         )
  12.     )    
  13. ) 
  14. # Bracket coloring
  15. {                        # Level 1
  16.     {                    # Level 2
  17.         {                # Level 3
  18.             {            # Level 4
  19.                 {        # Level 5
  20.                     {    # Level 6
  21.                     }  
  22.                 }
  23.             }
  24.         }
  25.     }   
  26. }
  27. # Here document coloring
  28. print <<TEXT;
  29. TEXT
  30. # Pod coloring
  31. =pod
  32. =cut